home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00295.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  339 b   |  14 lines
  1. on enterFrame
  2.   global cycleNo, userNo, beginDate, endDate
  3.   put EMPTY into field "cycle list"
  4.   repeat with i = 1 to getAt(cycleNo, userNo) - 1
  5.     readShortCycleInfo(i)
  6.     put "Cycle" && i & ": " & getDate(beginDate) && "to" && getDate(endDate) & RETURN after field "cycle list"
  7.   end repeat
  8.   cursor(0)
  9. end
  10.  
  11. on exitFrame
  12.   pause()
  13. end
  14.